home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinXP Start Menu 1.xpl < prev    next >
Text File  |  2002-11-22  |  3KB  |  127 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Start menu\Windows XP\Classic Start Menu"
  5. "NAME"="Visible Items"
  6. "VERSION"="2.10"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="0000011"
  9. "TEXT 1"="Aha! You can't see this!"
  10. "DESCRIPTION 1"="Use this plug-in to show or hide some of the items in the Start menu."
  11. "DESCRIPTION 2"="NOTE: Hiding the Run option will not disable the WINDOWS+R key combination, so users will still be able to access the Run command."
  12. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  13. "CONTACTURL"="http://www.xteq.com/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16.  
  17.  
  18. 'stupid Windows XP! Has two settings for each item. Either in Classic Logon or in New Mode! GNARF!
  19.  
  20.  sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  21. sP2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\"
  22.  
  23. sV1=sP2 & "StartMenuFavorites"
  24. sV2=sP & "NoRecentDocsMenu"
  25. sV3=sP2 & "StartMenuRun" '<>!
  26. sV4=sP & "NoClose"
  27. sV5=sP & "NoFind"
  28. sV6=sP2 & "StartMenuLogoff" '<>!
  29. sV7=sP & "NoSMHelp"
  30. sV8=sP & "NoStartMenuEjectPC"
  31. sV9=sP & "NoSMConfigurePrograms"
  32.  
  33.  
  34. SUB Plugin_Initialize
  35.  Call SetUIElement(1,"Favorites")
  36.  Call ReadIt_2(1,sV1)
  37.  
  38.  Call SetUIElement(2,"Documents")
  39.  Call ReadIt(2,sV2)
  40.  
  41.  Call SetUIElement(3,"Run...")
  42.  Call ReadIt_2(3,sV3)
  43.  
  44.  Call SetUIElement(4,"Shut Down...")
  45.  Call ReadIt(4,sV4)
  46.  
  47.  Call SetUIElement(5,"Search") 
  48.  Call ReadIt(5,sV5)
  49.  
  50.  Call SetUIElement(6,"Log Off <username>...")
  51.  Call ReadIt_2(6,sV6)
  52.  
  53.  Call SetUIElement(7,"Help")
  54.  Call ReadIt(7,sV7)
  55.  
  56.  Call SetUIElement(8,"Undock PC")
  57.  Call ReadIt(8,sV8)
  58.  
  59.  Call SetUIElement(9,"Set Program Access and Defaults (SP1)")
  60.  Call ReadIt(9,sV9)
  61. END SUB
  62.  
  63. 'Called when the Plugin should apply the changes
  64. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  65.  Call WriteIt_2(1,sV1)
  66.  Call WriteIt(2,sV2)
  67.  Call WriteIt_2(3,sV3)
  68.  Call WriteIt(4,sV4)
  69.  Call WriteIt(5,sV5)
  70.  Call WriteIt_2(6,sV6)
  71.  Call WriteIt(7,sV7)
  72.  Call WriteIt(8,sV8)
  73.  Call WriteIt(9,sV9)
  74.  
  75.  Call IndicateSettingChange()
  76. END SUB
  77.  
  78. Sub ReadIt(ITM,PATH1)
  79.  if RegValueExists(PATH1)=false then 'setting available?
  80.     'no setting -> item visible
  81.     Call SetUIElementEx(ITM,true)
  82.  else
  83.     i=RegReadValue(PATH1)
  84.     if i=0 then 
  85.        Call SetUIElementEx(ITM,true)
  86.     end if
  87.  end if
  88. End Sub
  89.  
  90. Sub ReadIt_2(ITM,PATH1)
  91.  if RegValueExists(PATH1)=false then 'setting available?
  92.     'no setting -> item not visible
  93.     Call SetUIElementEx(ITM,false)
  94.  else
  95.     i=RegReadValue(PATH1)
  96.     if i=1 then 
  97.        Call SetUIElementEx(ITM,true)  
  98.     end if
  99.  end if
  100. End Sub
  101.  
  102.  
  103. Sub WriteIt(ITM,PATH1)
  104.  b=GetUIElementEx(ITM)
  105.  if b=true then
  106.  
  107.     s=RegReadValue(PATH1)
  108.     if IsEmpty(s)=false then
  109.        Call RegDeleteValue(PATH1)
  110.     end if
  111.  
  112.  else
  113.     Call RegWriteValue(PATH1,1,2)
  114.  end if
  115. End Sub
  116.  
  117. Sub WriteIt_2(ITM,PATH1)
  118.  b=GetUIElementEx(ITM)
  119.  if b=true then
  120.     Call RegWriteValue(PATH1,1,2)
  121.  else
  122.     Call RegWriteValue(PATH1,0,2)
  123.  end if
  124. End Sub
  125. SUB Plugin_Terminate
  126. END SUB
  127.